# print ('my first script')
#load the file raw stats
#ignoring header data
perf_Data <- read.table('raw_stats.dat',TRUE)

plot(100-perf_Data[,'X.idle'], type = 'b', xlab='Time in Seconds', ylab = '% Utilization')

u_i <- mean((100-perf_Data[,X.idle'])
